home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol058 / usingthe.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1987-01-13  |  22.8 KB  |  657 lines
  1. 10  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20  REM All data is in the form of DATA statements.
  3. 30  REM By:  Melvin O. Duke.  Updated June 1983.
  4. 40  DATA Genealogy
  5. 50  DATA User's Manual
  6. 60  DATA -5
  7. 70  DATA 1
  8. 80  INDENT = 0
  9. 90  DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100  TRIM.LINE$ = "(Trim-line)"
  11. 110  REM Program begins here
  12. 120  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140  GOSUB 500  'For trim line and heading space
  15. 150  FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160  LPRINT CHR$(14);  'Set Expanded Print
  17. 170  LPRINT TAB(TAB.POS-2);TITLE$
  18. 180  LPRINT CHR$(18);  'Return to normal
  19. 190  FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200  LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220  LPRINT CHR$(27); "F"; 'Return to normal
  23. 222  LPRINT : LPRINT : LPRINT
  24. 224  LPRINT TAB(TAB.POS+11);"Version 1.3"
  25. 230  FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240  LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250  LINE.NO = LINE.NO + 27
  28. 260  '
  29. 270  READ REPLY$
  30. 280  IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290  IF LINE.NO > 44 THEN GOSUB 610
  32. 300  REM Print the line if not a command
  33. 310  LPRINT TAB(TAB.POS);REPLY$
  34. 320  LINE.NO = LINE.NO + 1
  35. 330  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  36. 340  GOTO 270
  37. 350  REM Data for the Copyright Page
  38. 354  DATA ".pa"
  39. 358  DATA "Anyone may request a copy of these"
  40. 362  DATA "programs by sending two blank diskettes"
  41. 366  DATA "to the author of the programs (one for"
  42. 370  DATA "the programs, and the second for the"
  43. 374  DATA "documentation)."
  44. 378  DATA ".sp"
  45. 382  DATA "An addressed, postage-paid return"
  46. 386  DATA "mailer must accompany the diskettes (no"
  47. 390  DATA "exceptions, please).
  48. 394  DATA ".sp"
  49. 398  DATA "A copy of the programs with documenta-"
  50. 402  DATA "tion will be sent by return mail."
  51. 406  DATA ".sp"
  52. 410  DATA "Regardless of whether a contribution"
  53. 414  DATA "is made, the user is encouraged to"
  54. 418  DATA "copy and share the program with others."
  55. 422  DATA "Payment for use is discretionary on"
  56. 426  DATA "the part of each subsequent user."
  57. 430  DATA ".vt 4"
  58. 434  DATA "If you are using these programs, and"
  59. 438  DATA "finding them of value, your contribution"
  60. 442  DATA "($35 suggested) will be appreciated."
  61. 446  DATA ".sp"
  62. 450  DATA "Melvin O. Duke"
  63. 454  DATA "P. O. Box 20836"
  64. 458  DATA "San Jose, CA  95160"
  65. 462  DATA ".vt 4"
  66. 466  DATA "Copyright (c) 1983, by:"
  67. 470  DATA "Melvin O. Duke."
  68. 474  DATA ".sp"
  69. 478  DATA "All rights reserved."
  70. 482  '
  71. 500  REM Top of each page routine
  72. 510  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520  LPRINT
  74. 530  LPRINT TAB(30); TRIM.LINE$
  75. 540  LPRINT DASHES$ 'Dashes
  76. 550  FOR I = 1 TO 6
  77. 560   LPRINT
  78. 570  NEXT I
  79. 580  LINE.NO = LINE.NO + 6
  80. 590  RETURN
  81. 600  '
  82. 610  REM Bottom of each page Routine
  83. 620  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 1.3" 'on line 47
  86. 650  IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670  LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680  GOTO 740
  90. 690  LPRINT TAB(TAB.POS); "User's Manual";
  91. 700  IF PAGE.NO < 10 THEN DELTA = 34
  92. 710  IF PAGE.NO >  9 THEN DELTA = 33
  93. 720  IF PAGE.NO > 99 THEN DELTA = 32
  94. 730  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740  LPRINT : LPRINT : LPRINT
  96. 750  LPRINT DASHES$ 'dashes after 51
  97. 760  LPRINT TAB(30); TRIM.LINE$
  98. 770  LPRINT CHR$(12);
  99. 780  PAGE.NO = PAGE.NO + 1
  100. 790  LINE.NO = 1
  101. 800  IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810  GOSUB 500  'For top of next page
  103. 820  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830  RETURN
  105. 840  '
  106. 850  REM Command Processor
  107. 860  IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870  IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880  IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890  IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900  IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910  IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 915  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920  IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930  IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940  IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950  STOP
  118. 960  REM Head 1 Processor
  119. 970  FOR I = LINE.NO TO 44
  120. 980   LPRINT
  121. 990  NEXT I
  122. 1000  GOSUB 610  'Bottom of page Routine
  123. 1010  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020  LPRINT CHR$(14);  'Set expanded print
  125. 1030  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050  LPRINT CHR$(18);  'Return to normal
  128. 1060  LINE.NO = LINE.NO+1
  129. 1070  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080  RETURN
  131. 1090  '
  132. 1100  REM Head 2 Processor
  133. 1110  IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130  LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150  LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160  LPRINT
  139. 1170  LINE.NO = LINE.NO + 2
  140. 1180  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190  RETURN
  142. 1200  '
  143. 1210  REM Head 3 Processor
  144. 1220  IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240  LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260  LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270  LPRINT
  150. 1280  LINE.NO = LINE.NO + 2
  151. 1290  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300  RETURN
  153. 1310  '
  154. 1320  REM Single Space Processor
  155. 1330  IF LINE.NO = 7 THEN 1350
  156. 1340  IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360  RETURN
  159. 1370  REM End of File Processor
  160. 1380  GOSUB 1410 'Bottom of Page
  161. 1390  LPRINT CHR$(12);
  162. 1400  GOTO 11820
  163. 1410  REM Page Eject Processor
  164. 1420  FOR I = LINE.NO TO 44
  165. 1430   LPRINT
  166. 1440   LINE.NO = LINE.NO + 1
  167. 1450  NEXT I
  168. 1460  GOSUB 610  'Bottom of Page Processing
  169. 1470  RETURN
  170. 1480  REM Vertical Tab Processor
  171. 1490  IF LINE.NO = 7 THEN 1580
  172. 1500  IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520  FOR I = 1 TO QTY
  175. 1530   LPRINT
  176. 1540   LINE.NO = LINE.NO + 1
  177. 1550   IF LINE.NO > 44 THEN I = QTY
  178. 1560  NEXT I
  179. 1570  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580  RETURN
  181. 1590  REM Pack Processor
  182. 1600  IF LINE.NO > 44 THEN GOSUB 610
  183. 1610  IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620  IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630  TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640  LPRINT CHR$(15); 'Packed printing
  187. 1650  WIDTH "lpt1:", 132 'set condensed width
  188. 1660  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670  LPRINT CHR$(18); 'Return to normal
  190. 1680  WIDTH "lpt1:", 80  'return to normal
  191. 1690  LINE.NO = LINE.NO + 1
  192. 1700  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710  RETURN
  194. 1720  REM Indent Processor
  195. 1730  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740  RETURN
  197. 5980  DATA ".h1 USING THE PROGRAM"
  198. 5990  DATA ".pn 23"
  199. 6000  DATA ".h2 GETTING STARTED"
  200. 6010  DATA "The user should perform the following"
  201. 6020  DATA "steps in starting any of the Genealogy"
  202. 6030  DATA "ON DISPLAY programs."
  203. 6040  DATA ".sp
  204. 6050  DATA "1.  Insert the PC DOS diskette into"
  205. 6060  DATA "    Drive 'a:'."
  206. 6070  DATA ".sp
  207. 6080  DATA "2.  Turn the Printer On."
  208. 6090  DATA ".sp"
  209. 6100  DATA "3.  Turn the System-unit On."
  210. 6110  DATA ".sp"
  211. 6120  DATA "4.  Type today's date when the system"
  212. 6130  DATA "    asks the user to Enter today's date"
  213. 6140  DATA "    (mm-dd-yy):"
  214. 6150  DATA ".sp"
  215. 6151  DATA "5.  Type the correct time if the system"
  216. 6152  DATA "    asks the user to Enter the time."
  217. 6153  DATA "    (hh:mm:ss):"
  218. 6154  DATA ".sp"
  219. 6160  DATA "6.  Type: basica/s:256"
  220. 6170  DATA "          and press the enter key"
  221. 6180  DATA ".sp"
  222. 6190  DATA "7.  Replace the DOS Diskette with the"
  223. 6200  DATA "    Genealogy ON DISPLAY diskette."
  224. 6210  DATA ".sp"
  225. 6220  DATA "8.  Type: load, followed by the name of"
  226. 6230  DATA "           one of the programs, and"
  227. 6240  DATA "           press the enter key."
  228. 6250  DATA ".sp"
  229. 6251  DATA "    (or press key F3 , type the name"
  230. 6252  DATA "    of the desired program) and press"
  231. 6253  DATA "    the enter key."
  232. 6254  DATA ".sp"
  233. 6260  DATA "9.  Replace the Program Diskette with"
  234. 6270  DATA "    the Data Diskette in Drive 'a:', and"
  235. 6280  DATA "    place the Ordinances Diskette in"
  236. 6290  DATA "    Drive 'b:'."
  237. 6300  DATA ".sp"
  238. 6310  DATA "10.  Type: run"
  239. 6320  DATA "          and press the enter key."
  240. 6321  DATA "    (or press key F2)."
  241. 6330  DATA ".sp"
  242. 6340  DATA "11.  Follow any instructions which appear"
  243. 6350  DATA "     at the bottom of each screen."
  244. 6360  DATA ".pa"
  245. 7400  DATA ".h2 FIRST TIME USAGE"
  246. 7410  DATA "Good procedures indicate that upon"
  247. 7420  DATA "receipt of any program or programs, it"
  248. 7430  DATA "is highly desirable for you to make"
  249. 7440  DATA "back-up copies for your own protection."
  250. 7450  DATA "Such is surely the case with the"
  251. 7460  DATA "Genealogy ON DISPLAY programs."
  252. 7470  DATA ".sp"
  253. 7480  DATA "Following the backup of the programs"
  254. 7490  DATA "themselves, start with a formatted"
  255. 7500  DATA "diskette, which is empty of programs"
  256. 7505  DATA "and data.  Do not include DOS (/s)."
  257. 7510  DATA "(This diskette will be filled with"
  258. 7520  DATA "genealogical data very shortly.)"
  259. 7540  DATA ".sp"
  260. 7550  DATA "Load the 'creatper' program by typing"
  261. 7551  DATA "'load' followed by a quote and 'creatper'"
  262. 7552  DATA "or by pressing the F3 key and typing"
  263. 7553  DATA "'creatper', and press the enter key."
  264. 7554  DATA "Then, after making sure that the for-"
  265. 7560  DATA "matted diskette is in Drive a:, type"
  266. 7570  DATA "'run' (or press the F2 key), and press"
  267. 7571  DATA "the enter key."
  268. 7572  DATA ".sp"
  269. 7580  DATA "This will cause the creation of a Persons"
  270. 7590  DATA "File, which will contain 400 'empty'"
  271. 7600  DATA "records, into which you will shortly be"
  272. 7610  DATA "entering data about the persons on your"
  273. 7620  DATA "list."
  274. 7630  DATA ".sp"
  275. 7640  DATA "Next, load the 'creatmar' program, by"
  276. 7641  DATA "typing 'load' followed by a quote and"
  277. 7642  DATA "'creatmar', or by pressing the F3 key"
  278. 7643  DATA "and they typing 'creatmar'."
  279. 7644  DATA ".sp"
  280. 7650  DATA "Then, after making sure that the data"
  281. 7660  DATA "diskette (which contains the Persons"
  282. 7665  DATA "File) is in Drive 'a:', run the"
  283. 7667  DATA "'creatmar' program by typing 'run' and"
  284. 7668  DATA "press the enter key, or press the F2"
  285. 7670  DATA "key.  This will cause the creation of a"
  286. 7680  DATA "Marriages File, which will contain 200"
  287. 7690  DATA "'empty' records, into which you will"
  288. 7700  DATA "shortly be entering data about the"
  289. 7710  DATA "marriages on your list."
  290. 7720  DATA ".sp"
  291. 7730  DATA "Finally, load the 'creatord' program."
  292. 7740  DATA "Make sure that a second data diskette"
  293. 7750  DATA "(the one for the ordinance file) is in"
  294. 7760  DATA "Drive 'b:'.  Then run the 'creatord'"
  295. 7770  DATA "program.  This will cause the creation"
  296. 7780  DATA "of the Ordinances File, which will"
  297. 7790  DATA "contain 400 'empty' records, into"
  298. 7800  DATA "which you will shortly be entering"
  299. 7810  DATA "data about ordinances for the people"
  300. 7820  DATA "on your list."
  301. 7840  DATA ".h3 Caution
  302. 7850  DATA "A word of extreme caution:  Once you"
  303. 7860  DATA "have run the 'creatper' program, the"
  304. 7870  DATA "'creatmar' program, and the 'creatord'"
  305. 7880  DATA "programs, you do NOT, repeat NOT, want"
  306. 7890  DATA "to run them again (at least not"
  307. 7900  DATA "against the same files)."
  308. 7910  DATA ".sp"
  309. 7920  DATA "To do so would mean that you would"
  310. 7930  DATA "wipe-out any previous data that was in"
  311. 7940  DATA "the files at the time that you ran the"
  312. 7950  DATA "programs again."
  313. 7960  DATA ".pa"
  314. 8340  DATA ".h2 HOW TO OPERATE."
  315. 8350  DATA ".h3 Operating the updatper program."
  316. 8360  DATA "After loading the updatper program, the"
  317. 8370  DATA "user should make sure that the data"
  318. 8380  DATA "diskette is in Drive 'a:'.  He then"
  319. 8390  DATA "will 'run' the program."
  320. 8400  DATA ".sp"
  321. 8410  DATA "After the logo is displayed, the user"
  322. 8420  DATA "is asked which record he wants to up-"
  323. 8430  DATA "date.  He should respond with a valid"
  324. 8440  DATA "number in the range of 1 to 400."
  325. 8450  DATA ".sp"
  326. 8460  DATA "The current content of the record is"
  327. 8470  DATA "shown.  If the record has never been"
  328. 8480  DATA "used, the record-number shown will be"
  329. 8490  DATA "negative.  As long as this number is"
  330. 8500  DATA "negative, it will be bypassed for any"
  331. 8510  DATA "further processing.  The user should"
  332. 8520  DATA "enter the record-number."
  333. 8530  DATA ".sp"
  334. 8540  DATA "The user is prompted for input.  He may"
  335. 8550  DATA "bypass any field by pressing the enter"
  336. 8560  DATA "key.  He may also bypass all remaining"
  337. 8570  DATA "fields by typing / and then pressing"
  338. 8580  DATA "the enter key."
  339. 8581  DATA ".sp"
  340. 8582  DATA "Note:  Dates should be entered as:"
  341. 8583  DATA "dd Mmm yyyy, such as: 06 Jan 1943."
  342. 8590  DATA ".pa"
  343. 8600  DATA "When finished with his updating, he is"
  344. 8610  DATA "asked to indicate what he wants to do"
  345. 8620  DATA "with the record.  He may either 'save'"
  346. 8630  DATA "it, he may 'forget' it, or he may make"
  347. 8640  DATA "'more' changes to the record.  As soon"
  348. 8650  DATA "as he says 'save', the record is saved"
  349. 8660  DATA "and he is once more prompted about the"
  350. 8670  DATA "next record to update."
  351. 8680  DATA ".sp"
  352. 8690  DATA "When he is through, he should indicate"
  353. 8700  DATA "that he wants to update record 0."
  354. 8710  DATA ".pa"
  355. 8720  DATA ".h3 Operating the updatmar program."
  356. 8730  DATA "After loading the updatmar program,"
  357. 8740  DATA "the user should make sure that the"
  358. 8750  DATA "data diskette is in Drive 'a:'."
  359. 8760  DATA "He will then 'run' the program."
  360. 8770  DATA ".sp"
  361. 8780  DATA "After the logo is displayed, the user"
  362. 8790  DATA "is asked which record he wants to up-"
  363. 8800  DATA "date.  He should respond with a valid"
  364. 8810  DATA "number in the range of 1 to 400."
  365. 8820  DATA ".sp"
  366. 8830  DATA "The current content of the record is"
  367. 8840  DATA "shown.  If the record has never been"
  368. 8850  DATA "used, the record-number shown will be"
  369. 8860  DATA "negative.  As long as this number is"
  370. 8870  DATA "negative, it will be bypassed for any"
  371. 8880  DATA "further processing.  The user should"
  372. 8890  DATA "enter the record-number."
  373. 8900  DATA ".sp"
  374. 8910  DATA "The user is prompted for input.  He may"
  375. 8920  DATA "bypass any field by pressing the enter"
  376. 8930  DATA "key.  He may also bypass all remaining"
  377. 8940  DATA "fields by typing / and then pressing"
  378. 8960  DATA "the enter key."
  379. 8970  DATA ".sp"
  380. 8980  DATA "When finished with his updating, he is"
  381. 8990  DATA "asked to indicate what he wants to do"
  382. 9000  DATA "with the record.  He may either 'save'"
  383. 9010  DATA "it, he may 'forget' it, or he may make"
  384. 9020  DATA "'more' changes to the record.  As soon"
  385. 9030  DATA "as he says 'save', the record is saved"
  386. 9040  DATA "and he is once more prompted about the"
  387. 9050  DATA "next record to update."
  388. 9060  DATA ".sp"
  389. 9070  DATA "When he is through, he should indicate"
  390. 9080  DATA "that he wants to update record 0."
  391. 9090  DATA ".pa"
  392. 9100  DATA ".h2 Operating the updatord program."
  393. 9110  DATA "After loading the updatord program, the"
  394. 9120  DATA "user should make sure that the data"
  395. 9130  DATA "diskette is in Drive 'a:', and that"
  396. 9135  DATA "the ordinances diskette is in Drive"
  397. 9140  DATA "'b:'.  He will then 'run' the program."
  398. 9150  DATA ".sp"
  399. 9160  DATA "After the logo is displayed, the user"
  400. 9170  DATA "is asked which record he wants to up-"
  401. 9180  DATA "date.  He should respond with a valid"
  402. 9190  DATA "number in the range of 1 to 400."
  403. 9200  DATA ".sp"
  404. 9210  DATA "The user is prompted for input.  He may"
  405. 9220  DATA "bypass any field by pressing the enter"
  406. 9230  DATA "key.  He may also bypass all remaining"
  407. 9240  DATA "fields by typing / and then pressing"
  408. 9250  DATA "the enter key."
  409. 9260  DATA ".sp"
  410. 9261  DATA "Dates should be entered as: dd Mmm yyyy,"
  411. 9262  DATA "such as:  05 Aug 1922."
  412. 9263  DATA ".sp"
  413. 9270  DATA "When finished with his updating, he is"
  414. 9280  DATA "asked to indicate what he wants to do"
  415. 9290  DATA "with the record.  He may either 'save'"
  416. 9300  DATA "it, he may 'forget' it, or he may make"
  417. 9310  DATA "'more' changes to the record.  As soon"
  418. 9320  DATA "as he says 'save', the record is saved"
  419. 9330  DATA "and he is once more prompted about the"
  420. 9340  DATA "next record to update."
  421. 9350  DATA ".sp"
  422. 9360  DATA "When he is through, he should indicate"
  423. 9370  DATA "that he wants to update record 0."
  424. 9380  DATA ".pa"
  425. 9390  DATA ".h3 Operating the indexpc program."
  426. 9400  DATA "The 'indexpc' program is fundamental to"
  427. 9410  DATA "the creation of a parent/child index,"
  428. 9420  DATA "which associates parents with their"
  429. 9430  DATA "children."
  430. 9440  DATA ".sp"
  431. 9445  DATA "It should be run after any additions"
  432. 9450  DATA "of persons to the Persons File, when-"
  433. 9460  DATA "ever birthdates are added or changed,"
  434. 9470  DATA "or when identification of parents have"
  435. 9475  DATA "been added or changed."
  436. 9480  DATA ".sp"
  437. 9490  DATA "Load the 'indexpc' program, and make"
  438. 9500  DATA "sure that the data diskette (contain-"
  439. 9502  DATA "ing the Persons File and the Marriages"
  440. 9503  DATA "File) is in Drive 'a:'.  Then 'run' the"
  441. 9510  DATA "'indexpc' program."
  442. 9512  DATA ".sp"
  443. 9513  DATA "A file named 'pcindex' will be created"
  444. 9514  DATA "on the data diskette on Drive 'a;'."
  445. 9520  DATA ".pa"
  446. 9590  DATA ".h3 Operating the indexmar program."
  447. 9600  DATA "The 'indexmar' program is fundamental"
  448. 9610  DATA "to the creation of a marriages index,"
  449. 9620  DATA "which associates spouses with each"
  450. 9621  DATA "other."
  451. 9630  DATA ".sp"
  452. 9640  DATA "It should be run after marriages are"
  453. 9645  DATA "added to the Marriages File, whenever"
  454. 9650  DATA "marriage-dates are added or changed,"
  455. 9660  DATA "or whenever changes are made which re-"
  456. 9670  DATA "identify spouses."
  457. 9680  DATA ".sp"
  458. 9690  DATA "Load the 'indexmar' program, and make"
  459. 9700  DATA "sure that the data diskette (containing"
  460. 9710  DATA "the Persons File and the Marriages File)"
  461. 9720  DATA "is in Drive 'a:'.  Then 'run' the"
  462. 9730  DATA "program."
  463. 9740  DATA ".sp"
  464. 9750  DATA "A data file named 'mindex' will be"
  465. 9760  DATA "created on the data diskette in Drive"
  466. 9770  DATA "'a:'."
  467. 10000  DATA ".pa"
  468. 10010  DATA ".h3 Operating the display program."
  469. 10020  DATA "Before running the display program,"
  470. 10030  DATA "the user should know that any changes"
  471. 10040  DATA "that he has made to the data files may"
  472. 10050  DATA "have made his indices out-of-date."
  473. 10060  DATA "This will have happened if the user"
  474. 10070  DATA "has entered a new person, a new"
  475. 10080  DATA "marriage, a new relationship (such as"
  476. 10090  DATA "a reference to a parent), a new"
  477. 10100  DATA "birth-date, a new marriage-date, or"
  478. 10110  DATA "a new Name."
  479. 10120  DATA ".sp"
  480. 10130  DATA "The indices are still correct if the"
  481. 10140  DATA "user has entered new death-dates,"
  482. 10150  DATA "burial-dates, or any information about"
  483. 10160  DATA "locations (cities, counties, states)"
  484. 10170  DATA "of births, deaths, ordinances, etc."
  485. 10180  DATA ".sp"
  486. 10190  DATA "If the indices are out-of-date, the"
  487. 10200  DATA "user should update them before running"
  488. 10210  DATA "the 'display' program, by running the"
  489. 10211  DATA "'indexper' and 'indexmar' programs."
  490. 10220  DATA ".sp"
  491. 10230  DATA "After loading the 'display' program, the"
  492. 10240  DATA "user should make sure that the data"
  493. 10250  DATA "diskette is in Drive 'a:', and the ordi-"
  494. 10260  DATA "nances diskette in Drive 'b:'.  He"
  495. 10270  DATA "should then 'run' the program."
  496. 10280  DATA ".sp"
  497. 10290  DATA "After the logo is displayed, the user"
  498. 10300  DATA "is asked for the record-number of the"
  499. 10310  DATA "person that he wants to locate.  He"
  500. 10320  DATA "should enter a number which he knows to"
  501. 10330  DATA "be valid."
  502. 10340  DATA ".pa"
  503. 10350  DATA "The personal information about that"
  504. 10360  DATA "person will then be shown on the display."
  505. 10370  DATA ".sp"
  506. 10380  DATA "The user may then enter 'ps' (print"
  507. 10390  DATA "the screen), he may enter 'pc' (for a"
  508. 10400  DATA "pedigree chart), he may enter 'fg' (for"
  509. 10410  DATA "a family group), he may enter 'o' (for"
  510. 10420  DATA "ordinance information), he may enter 'p'"
  511. 10430  DATA "followed by a valid number (requesting"
  512. 10440  DATA "information about a person), he may enter"
  513. 10450  DATA "'m' followed by a valid number (requesting"
  514. 10460  DATA "information about a marriage), or he may"
  515. 10470  DATA "enter 'q' (asking to quit)."
  516. 10480  DATA ".sp"
  517. 10490  DATA "When the pedigree information appears,"
  518. 10500  DATA "the user may then enter 'ps' (print the"
  519. 10510  DATA "screen, he may enter 'fg' (requesting"
  520. 10520  DATA "a family group), he may enter 'pc'"
  521. 10530  DATA "(asking that the pedigree chart be"
  522. 10540  DATA "re-drawn), he may enter 'l' followed by"
  523. 10550  DATA "a valid number (requesting personal"
  524. 10560  DATA "information about a person on the stated"
  525. 10570  DATA "line), he may enter 'm' followed by a"
  526. 10580  DATA "valid number (requesting information"
  527. 10590  DATA "about a marriage), or he may enter 'q'"
  528. 10600  DATA "(asking to quit)."
  529. 10610  DATA ".pa"
  530. 10620  DATA "When the family group information appears,"
  531. 10630  DATA "the user may enter 'ps' (print the"
  532. 10640  DATA "screen), he may enter 'f' (asking for the"
  533. 10650  DATA "father), he may enter 'm' (asking for the"
  534. 10660  DATA "mother), he may enter 'p' followed by a"
  535. 10670  DATA "valid number (asking for about a person),"
  536. 10680  DATA "he may enter 'c' followed by a valid"
  537. 10690  DATA "number (asking for information about a"
  538. 10700  DATA "child), he may enter 'm' followed by a"
  539. 10710  DATA "valid number (requesting information"
  540. 10720  DATA "about a marriage, or he may enter 'q'"
  541. 10730  DATA "(asking to quit)."
  542. 10750  DATA ".sp"
  543. 10760  DATA "When the ordinance information appears,"
  544. 10780  DATA "The user may then enter 'ps' (print"
  545. 10790  DATA "the screen), he may enter 'pc' (for a"
  546. 10800  DATA "pedigree chart), he may enter 'fg' (for"
  547. 10810  DATA "a family group), he may enter 'o' (for"
  548. 10820  DATA "ordinance information), he may enter 'p'"
  549. 10830  DATA "followed by a valid number (requesting"
  550. 10840  DATA "information about a person), he may enter"
  551. 10850  DATA "'m' followed by a valid number (requesting"
  552. 10860  DATA "information about a marriage), or he may"
  553. 10870  DATA "enter 'q' (asking to quit)."
  554. 10880  DATA ".pa"
  555. 10890  DATA ".h2 Operating the Pedigree Program"
  556. 10900  DATA "After loading the 'pedigree' program,"
  557. 10910  DATA "the user should make sure that the"
  558. 10920  DATA "data diskette is in Drive 'a:', that the"
  559. 10930  DATA "ordinances diskette is in Drive 'b:',"
  560. 10940  DATA "and that the printer is on and ready."
  561. 10950  DATA ".sp"
  562. 10960  DATA "He should then 'run' the program, and"
  563. 10970  DATA "follow any instructions which appear at"
  564. 10980  DATA "the bottom of the display."
  565. 10990  DATA ".sp"
  566. 11000  DATA "Note:  The pedigree program was designed"
  567. 11010  DATA "to use a form which is Copyrighted, 1966,"
  568. 11020  DATA "The Genealogical Society of the Church of"
  569. 11030  DATA "Jesus Christ of Latter Day Saints, Inc."
  570. 11040  DATA "Stock #GA-054"
  571. 11050  DATA ".sp"
  572. 11060  DATA "If such a form is not available, the"
  573. 11070  DATA "content of the pedigree can be printed"
  574. 11080  DATA "on any available printer paper."
  575. 11090  DATA ".pa"
  576. 11100  DATA ".h2 Operating the Family Program"
  577. 11110  DATA "After loading the 'family' program,"
  578. 11120  DATA "the user should make sure that the"
  579. 11130  DATA "data diskette is in Drive 'a:', that the"
  580. 11140  DATA "ordinances diskette is in Drive `b:', and"
  581. 11150  DATA "that the printer is on and ready."
  582. 11160  DATA ".sp"
  583. 11170  DATA "He should then 'run' the program, and"
  584. 11180  DATA "follow any instructions which appear at"
  585. 11190  DATA "the bottom of the display."
  586. 11200  DATA ".sp"
  587. 11210  DATA "Note:  The family program was designed"
  588. 11220  DATA "to use a Family Group Record form, which"
  589. 11230  DATA "was copyrighted 1972 by the Genealogical"
  590. 11240  DATA "Society of the Church of Jesus Christ of"
  591. 11250  DATA "Latter Day Saints, Inc.  Stock #GA-032."
  592. 11260  DATA ".sp"
  593. 11270  DATA "If such a form is not available, the"
  594. 11280  DATA "content of the pedigree can be printed"
  595. 11290  DATA "on any available printer paper."
  596. 11300  DATA ".pa"
  597. 11310  DATA ".h3 Operating the other programs."
  598. 11320  DATA "After loading one of the other programs,"
  599. 11330  DATA "the user should make sure that the data"
  600. 11340  DATA "diskette is in Drive 'a:', that the"
  601. 11350  DATA "ordinances diskette is in Drive 'b:',"
  602. 11360  DATA "and that the printer is on and ready."
  603. 11370  DATA "He will then 'run' the program."
  604. 11380  DATA ".sp"
  605. 11390  DATA "Note:  See the Table of Contents for the"
  606. 11400  DATA "names of the other programs."
  607. 11410  DATA ".sp"
  608. 11420  DATA "After the logo is displayed, the user"
  609. 11430  DATA "observes the information that is being"
  610. 11440  DATA "shown on the display screen, and waits"
  611. 11450  DATA "for the program to complete."
  612. 11460  DATA ".pa"
  613. 11470  DATA ".h2 HOW TO STOP."
  614. 11480  DATA "The user may stop at any time, by"
  615. 11490  DATA "pressing (and holding down) the control"
  616. 11500  DATA "(Ctrl) key, and then pressing the Break"
  617. 11510  DATA "key."
  618. 11520  DATA ".sp"
  619. 11530  DATA ".h3 Stopping the Update Programs."
  620. 11540  DATA "The user may stop one of the update"
  621. 11550  DATA "programs (updatper, updatmar, or"
  622. 11560  DATA "updatord) by requesting an update of"
  623. 11561  DATA "record 0."
  624. 11570  DATA ".h3 Stopping the Display Program."
  625. 11580  DATA "The user may stop the display program"
  626. 11590  DATA "by keying 'q' or 'quit' when he is"
  627. 11600  DATA "asked for his next action."
  628. 11610  DATA ".h3 Stopping the Pedigree Program."
  629. 11620  DATA "The user may stop the pedigree program"
  630. 11630  DATA "by asking for a printout of the pedigree"
  631. 11640  DATA "for person-number 0."
  632. 11650  DATA ".h3 Stopping the Family Program."
  633. 11660  DATA "The user may stop the family program"
  634. 11670  DATA "by asking for a printout of the family"
  635. 11680  DATA "whose marriage-number was 0."
  636. 11690  DATA ".pa"
  637. 11700  DATA ".h3 Stopping the Other Programs."
  638. 11710  DATA "The other programs may only be stopped"
  639. 11720  DATA "with the 'control-break' sequence, as"
  640. 11730  DATA "indicated above.  However, the user"
  641. 11740  DATA "is cautioned that if he does this while"
  642. 11750  DATA "writing new indices to the diskette"
  643. 11751  DATA "(during the running of the 'indexpc'"
  644. 11752  DATA "or 'indexmar' programs), the indices"
  645. 11760  DATA "that are currently being written may be"
  646. 11770  DATA "destroyed, and will have to be re-built"
  647. 11780  DATA "before the 'display', 'pedigree',"
  648. 11790  DATA "'family', and 'alphamar' programs are"
  649. 11800  DATA "run."
  650. 11801  DATA ".sp"
  651. 11802  DATA "The damaged index can be re-built by"
  652. 11803  DATA "re-running the 'indexpc' or 'indexmar'"
  653. 11804  DATA "program which was stopped with the"
  654. 11805  DATA "'control-break' sequence."
  655. 11810  DATA ".eof"
  656. 11820  END
  657.